home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / fredfish / ff.0375.dms / ff.0375.adf / BI / sample.bas < prev   
BASIC Source File  |  1989-06-06  |  2KB  |  37 lines
  1. REM   TEST BI DRIVER ROUTINE
  2. 20 DIM CARD%(218)
  3. 30 SCREEN 1,320,200,2,1
  4. 40 WINDOW 2,"QUEEN.HEARTS",(10,10)-(290,170),15,1
  5. REM *** SCREEN COLORS ***
  6.  
  7. PALETTE 0,0!,.27,.8
  8. PALETTE 1,0!,0!,0!
  9. PALETTE 2,.73,.67,.67
  10. PALETTE 3,1!,1!,1!
  11.  
  12. 50 FOR I=0 TO 218
  13. 60 READ CARD%(I)
  14. 70 NEXT I
  15. CLS
  16.  
  17. 80 PUT (50,50),CARD%,PSET
  18.  
  19. PRINT "Press Any Key"
  20. 90 A$=INKEY$
  21. 100 IF A$ = "" THEN 90
  22.  
  23. 110 WINDOW CLOSE 2
  24. 115 SCREEN CLOSE 1
  25. 120 END
  26.  
  27. REM *** QUEEN_HEARTS IMAGE DATA ***
  28. REM *** Width = 2,Height = 54,Depth = 2 ***
  29.  
  30. DATA 31,54,2
  31. DATA -1,-2,-1,-258,-1,-386,-7617,-194,-16355,-66,-16355,-66,-16359,-258,-8135,-258,-3975,-386,-1797,-386,-525,-2,-9,-2,-25,-898,-8,28926,-2,2046,-1,-2,-113,-34,-3597,-130
  32. DATA -15107,11774,-29089,-2,-23297,-2,-3657,-258,-22625,-2,-28723,-1026,-29,-2,-5,28670,-1,-2,-1,-2,-19,-16386,-1,-28674,-65,26594,-1,-3126,-257,-9442,-1,-438,-1,-2846,-151,32326
  33. DATA -513,-24802,-2049,-7170,-1,-2,-64,-2,-484,16382,-897,-12290,-1,-8194,-1,-24706,-769,-16834,-769,15390,-257,14350,-257,12294,-1025,28678,-1025,28678,-1537,-1906,-769,-2,-257,-2,-1,-2
  34. DATA 0,0,32766,28,32766,8220,25148,-1012,16409,-28148,16409,-9700,16401,-8644,24625,-8644,28785,-12740,30945,-964,32224,-30680,32704,-10240,32704,28672,32704,20,32656,148,32266,152,28672,-9712,16640,0
  35. DATA 128,40,8,336,68,556,34,1104,1041,2224,2056,-28344,17408,25220,522,1152,68,-24320,266,17408,576,-24448,17036,68,9490,8224,6689,4160,5184,-30720,26752,17408,5376,8192,10240,512
  36. DATA 0,260,4278,28,12800,-24324,20992,5116,20480,2044,28,2044,54,2044,10274,3964,30847,3644,30951,7196,30967,6156,30967,4100,28855,12292,24723,12292,24702,30860,28680,-4,28672,-4,0,0
  37.